home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / utmisc2 / datebkiv.lha / DateBookIV / Rexx / TestDBCommands.rexx < prev    next >
OS/2 REXX Batch file  |  1996-03-31  |  7KB  |  442 lines
  1. /* File : dbrx.rexx
  2.  *
  3.  * $Project:         DateBook
  4.  *
  5.  * $Description:  Test all the rexx features in DateBook.       
  6.  *
  7.  * $Module Id:         
  8.  * $Original Author:   Robert Hardy
  9.  * $Date Started:      Sun Feb 26 1995
  10.  *
  11.  * $Revision: 1.4 $
  12.  *
  13.  * $State: Exp $
  14.  *
  15.  * $Locker:  $
  16.  *
  17.  * $Log: dbrx.rexx-v $
  18. # Revision 1.4  1996/02/06  07:46:46  Bob
  19. # Cleaned up report tests.
  20. #
  21. # Revision 1.3  1995/12/17  08:55:39  Bob
  22. # fixed typo.
  23. #
  24. # Revision 1.2  1995/11/20  00:49:54  Bob
  25. # Added support for new Notes and Priority fields.
  26. # fixed setting time field test.
  27. #
  28. # Revision 1.1  1995/03/22  20:30:21  Bob
  29. # Initial revision
  30. # 
  31.  *
  32.  *
  33.  */
  34.  
  35. options results
  36.  
  37. TICK = '27'X
  38.  
  39.  
  40. port_name = 'datebook_rx'
  41. port_off = 0
  42.  
  43. if ~show('p', port_name) then do        /* Find Out if DynaEngine is running */
  44.  
  45.     port_off = 1                    /* Set the flag so we can clean up on exit */
  46.  
  47.         /* Run Datebook */
  48.     address command 'run DateBook mode=SERVER RXPORT='port_name' FILE=dates.dat'
  49.     address command 'waitforport 'port_name        /* Wait till it's loaded */
  50. end
  51.  
  52. address VALUE port_name
  53.  
  54.  
  55. say ''
  56. say '** getting first **'
  57. 'GOTORECORD FIRST'
  58. if (rc = 0) then 
  59.     say 'result = "'result'"'
  60. else 
  61.     say 'rc = 'rc
  62.  
  63. say ''
  64. say '** Getting first record **'
  65. 'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  66. if (rc = 0) then
  67.     say 'result = "'result'"'
  68. else 
  69.     say 'rc = 'rc
  70.  
  71. say ''
  72. say '** Getting next record **'
  73. 'NEXTRECORD'
  74. if (rc = 0) then 
  75.     say 'result = "'result'"'
  76. else 
  77.     say 'rc = 'rc
  78.  
  79. 'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  80. if (rc = 0) then 
  81.     say 'result = "'result'"'
  82. else 
  83.     say 'rc = 'rc
  84.  
  85. say ''
  86. say '** Getting previous record **'
  87. 'PREVRECORD'
  88. if (rc = 0) then 
  89.     say 'result = "'result'"'
  90. else 
  91.     say 'rc = 'rc
  92.  
  93. 'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  94. if (rc = 0) then 
  95.     say 'result = "'result'"'
  96. else 
  97.     say 'rc = 'rc
  98.  
  99. say ''
  100. say '** Getting last record **'
  101. 'GOTORECORD LAST'
  102. if (rc = 0) then 
  103.     say 'result = "'result'"'
  104. else 
  105.     say 'rc = 'rc
  106.  
  107. 'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  108. if (rc = 0) then 
  109.     say 'result = "'result'"'
  110. else 
  111.     say 'rc = 'rc
  112.  
  113. say ''
  114. say '** Getting record 3 **'
  115. 'GOTORECORD 3'
  116. if (rc = 0) then 
  117.     say 'result = "'result'"'
  118. else 
  119.     say 'rc = 'rc
  120.  
  121. 'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  122. if (rc = 0) then 
  123.     say 'result = "'result'"'
  124. else 
  125.     say 'rc = 'rc
  126.  
  127. say ''
  128. say '** Searching for "christ" **'
  129. 'FINDRECORD $E christ'
  130. if (rc = 0) then 
  131. do
  132.     say 'result = "'result'"'
  133.  
  134.     'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  135.     if (rc = 0) then 
  136.         say 'result = "'result'"'
  137.     else
  138.         say 'rc = 'rc
  139.  
  140.     say ''
  141.     say '** Looking for next match **'
  142.     'nextmatch'
  143.     if (rc = 0) then
  144.     do
  145.         say 'result = "'result'"'
  146.  
  147.         'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  148.         if (rc = 0) then 
  149.             say 'result = "'result'"'
  150.         else
  151.              say 'rc = 'rc
  152.  
  153.         nop
  154.     end
  155.     else
  156.         say 'rc = 'rc
  157.  
  158.     say ''
  159.     say '** moving to last record **'
  160.     'GOTORECORD LAST'
  161.     if (rc = 0) then 
  162.         say 'result = "'result'"'
  163.     else 
  164.         say 'rc = 'rc
  165.  
  166.     say ''
  167.     say '** Looking for previous match **'
  168.     'prevmatch'
  169.     if (rc = 0) then
  170.     do
  171.         say 'result = "'result'"'
  172.         'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  173.         if (rc = 0) then 
  174.             say 'result = "'result'"'
  175.         else 
  176.             say 'rc = 'rc
  177.     end
  178.     else
  179.         say 'rc = 'rc
  180.  
  181. end
  182. else 
  183.     say 'rc = 'rc
  184.  
  185. say ''
  186. say '** Printing month summary **'
  187. 'summary 11 1996'
  188. if (rc = 0) then 
  189.     say result
  190. else do
  191.     if rc = 5 then
  192.         say 'Nothing to Report'
  193.     else
  194.         say 'rc = 'rc
  195. end
  196.  
  197. say ''
  198. say '** Printing todays events **'
  199. 'today'
  200. if (rc = 0) then 
  201.     say 'result = "'result'"'
  202. else do
  203.     if rc = 5 then
  204.         say 'Nothing to Report'
  205.     else
  206.         say 'rc = 'rc
  207. end
  208.  
  209. say ''
  210. say '** getting events for a date **'
  211. 'EVENTS 19960228'
  212. if (rc = 0) then 
  213.     say 'result = "'result'"'
  214. else do
  215.     if rc = 5 then
  216.         say 'Nothing to Report'
  217.     else
  218.         say 'rc = 'rc
  219. end
  220.  
  221. say ''
  222. say '** Getting upcoming events **'
  223. 'UPCOMMING'
  224. if (rc = 0) then 
  225.     say 'result = "'result'"'
  226. else do
  227.     if rc = 5 then
  228.         say 'Nothing to Report'
  229.     else
  230.         say 'rc = 'rc
  231. end
  232.  
  233.  
  234. say ''
  235. say '** Adding a record **'
  236. 'ADDRECORD'
  237. if (rc = 0) then 
  238.     say 'result = "'result'"'
  239. else 
  240.     say 'rc = 'rc
  241.  
  242. say ''
  243. say '** Setting record contents **'
  244. 'SETFIELD $d 19960102 $t 0100 $e Test Event xxx $y k $w 5 $f 2 $x 'TICK'say 'TICK'hello'TICK
  245. if (rc = 0) then 
  246.     say 'result = "'result'"'
  247. else 
  248.     say 'rc = 'rc
  249.  
  250. 'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  251. if (rc = 0) then 
  252.     say 'result = "'result'"'
  253. else 
  254.     say 'rc = 'rc
  255.  
  256. say ''
  257. say '** Sorting Database **'
  258. 'sortdb'
  259. if (rc = 0) then 
  260.     say 'result = "'result'"'
  261. else 
  262.     say 'rc = 'rc
  263.  
  264. say ''
  265. say '** Looking for record we added **'
  266. 'FINDRECORD $E xxx'
  267. if (rc = 0) then 
  268. do
  269.     recnum = result
  270.     say 'recnum = 'recnum
  271.  
  272.     'GETFIELD $d $t $p $e $y $w $f $x $r $n'
  273.     if (rc = 0) then 
  274.         say 'result = "'result'"'
  275.     else
  276.         say 'rc = 'rc
  277.  
  278.     say ''
  279.     say '** deleting record **'
  280.     'DELETERECORD'
  281.     if (rc = 0) then 
  282.         say 'result = "'result'"'
  283.     else
  284.         say 'rc = 'rc
  285. end
  286. else 
  287.     say 'rc = 'rc
  288.  
  289. say ''
  290. say '** Saving Database **'
  291. 'savedb datestest.dat'
  292. if (rc = 0) then 
  293.     say 'result = "'result'"'
  294. else 
  295.     say 'rc = 'rc
  296.  
  297.  
  298. say ''
  299. say '** Test String2date tomorrow **'
  300. 'STRING2DATE tomorrow'
  301. if (rc = 0) then 
  302.     say 'result = "'result'"'
  303. else 
  304.     say 'rc = 'rc
  305.  
  306. say ''
  307. say '** Test String2date today **'
  308. 'STRING2DATE today'
  309. if (rc = 0) then 
  310.     say 'result = "'result'"'
  311. else 
  312.     say 'rc = 'rc
  313.  
  314. say ''
  315. say '** Test String2date saturday **'
  316. 'STRING2DATE saturday'
  317. if (rc = 0) then 
  318.     say 'result = "'result'"'
  319. else 
  320.     say 'rc = 'rc
  321.  
  322. say ''
  323. say '** Test GetMonthName 1 **'
  324. 'GETMONTHNAME 1'
  325. if (rc = 0) then 
  326.     say 'result = "'result'"'
  327. else 
  328.     say 'rc = 'rc
  329.  
  330. say ''
  331. say '** Test GetMonthName 11 **'
  332. 'GETMONTHNAME 11'
  333. if (rc = 0) then 
  334.     say 'result = "'result'"'
  335. else 
  336.     say 'rc = 'rc
  337.  
  338. say ''
  339. say '** Test DayName 19950322 **'
  340. 'DAYNAME 19950322'
  341. if (rc = 0) then 
  342.     say 'result = "'result'"'
  343. else 
  344.     say 'rc = 'rc
  345.  
  346. say ''
  347. say '** Test Expand_Date 19950309 **'
  348. 'EXPANDDATE 19950309'
  349. if (rc = 0) then 
  350.     say 'result = "'result'"'
  351. else 
  352.     say 'rc = 'rc
  353.  
  354. say ''
  355. say '** Test ISVALID 19951332 **'
  356. 'ISVALID 19951332'
  357. if (rc = 0) then 
  358.     say 'result = "'result'"'
  359. else 
  360.     say 'rc = 'rc
  361.  
  362. say ''
  363. say '** Test ISVALID 19950302 **'
  364. 'ISVALID 19950302'
  365. if (rc = 0) then 
  366.     say 'result = "'result'"'
  367. else 
  368.     say 'rc = 'rc
  369.  
  370. say ''
  371. say '** Changing to Iconified mode - AppIcon **'
  372.  
  373. SETICONIFY 'ICON'
  374. if (rc = 0) then 
  375.     say 'old iconify type = "'result'"'
  376. else 
  377.     say 'rc = 'rc
  378.  
  379. CHANGEMODE 'ICONIFY'
  380. if (rc = 0) then 
  381.     say 'old mode = "'result'"'
  382. else 
  383.     say 'rc = 'rc
  384. delay(50 * 5)
  385.  
  386. say ''
  387. say '** Changing to Editor mode **'
  388.  
  389. CHANGEMODE 'EDIT'
  390. if (rc = 0) then 
  391.     say 'old mode = "'result'"'
  392. else 
  393.     say 'rc = 'rc
  394. delay(50 * 5)
  395.  
  396. say ''
  397. say '** Changing to Iconified mode - Clock **'
  398.  
  399. SETICONIFY 'CLOCK'
  400. if (rc = 0) then 
  401.     say 'old iconify type = "'result'"'
  402. else 
  403.     say 'rc = 'rc
  404. CHANGEMODE 'ICONIFY'
  405. if (rc = 0) then 
  406.     say 'old mode = "'result'"'
  407. else 
  408.     say 'rc = 'rc
  409. delay(50 * 5)
  410.  
  411. say ''
  412. say '** Changing to  Memo mode **'
  413.  
  414. CHANGEMODE 'MEMO'
  415. if (rc = 0) then 
  416.     say 'old mode = "'result'"'
  417. else 
  418.     say 'rc = 'rc
  419. delay(50 * 5)
  420.  
  421. say ''
  422. say '** Changing to Iconified mode - Calendar **'
  423.  
  424. SETICONIFY 'CAL'
  425. if (rc = 0) then 
  426.     say 'old iconify type = "'result'"'
  427. else 
  428.     say 'rc = 'rc
  429.  
  430. CHANGEMODE 'ICONIFY'
  431. if (rc = 0) then 
  432.     say 'old mode = "'result'"'
  433. else 
  434.     say 'rc = 'rc
  435.  
  436. say ''
  437. say "All done!"
  438.  
  439. if port_off > 0 then 'SHUTDOWN'
  440.  
  441. exit 0
  442.